home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / System / Library.p < prev    next >
Encoding:
Text File  |  2000-05-03  |  1.5 KB  |  53 lines

  1. pTempVar <- <primitive 110 11 >
  2. <primitive 112 pTempVar 1  " new: " \
  3.   #( #[ 16r21 16r60 16r20 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " getOpenCount " \
  7.   #( #[ 16r52 16r57 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " getCheckSum " \
  11.   #( #[ 16r52 16r56 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 4  " getRevision " \
  15.   #( #[ 16r52 16r55 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 5  " getFlags " \
  19.   #( #[ 16r52 16r53 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  20.     #(  )) >
  21.  
  22. <primitive 112 pTempVar 6  " getPosSize " \
  23.   #( #[ 16r52 16r52 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  24.     #(  )) >
  25.  
  26. <primitive 112 pTempVar 7  " getNegSize " \
  27.   #( #[ 16r52 16r51 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  28.     #(  )) >
  29.  
  30. <primitive 112 pTempVar 8  " getVersion " \
  31.   #( #[ 16r52 16r54 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 9  " getIDString " \
  35.   #( #[ 16r52 16r50 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  36.     #(  )) >
  37.  
  38. <primitive 112 pTempVar 10  " close " \
  39.   #( #[ 16r50 16r10 16rFA 16r02 16rBE 16rF3 16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 11  " openVersion: " \
  43.   #( #[ 16r51 16r10 16r21 16rFA 16r03 16rBE 16rF3 16rF5] \
  44.     #(  )) >
  45.  
  46. <primitive 98 #Library \
  47.   <primitive 97 #Library #Object #AmigaTalk:System/Library.st \
  48.    #(  #libName ) \
  49.    #( #new: #getOpenCount #getCheckSum #getRevision #getFlags #getPosSize  \
  50.        #getNegSize #getVersion #getIDString #close #openVersion:  ) \
  51.   pTempVar 2 4 >>
  52.  
  53.